0 REM LABEL MAKER UTILITY
1 REM BY  JOSEPH STEIN JR.
2 REM     859 MIAMI ST.,APT.35
3 REM     TIFFIN, OH 44883
4 REM     PH. (419) 447-7908
5 REM NOVEMBER 1984
80 REM ENTER TEXT FOR LABEL(S)
100 POKE53280,12:POKE53281,9:PRINT"[147][158]"
107 GOSUB2000
110 AY$="ARE YOU SURE? (Y/N)":WL=.
120 MA$="[147]MAX. 32 KEYSTROKES/LINE"
200 PRINTMA$:INPUT"[145][145][145][145][145]ENTER NAME, RETURN";RA$(1)
210 PRINT"                         [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"AY$
225 GETY$:IFY$=""THEN225
240 IFY$="N"THEN200
250 IFY$<>"Y"THEN225
270 IFWL=1ANDY$="Y"THEN700
300 PRINTMA$:INPUT"[145][145][145][145][145]ENTER ADDRESS (NO COMMAS), RETURN";RA$(2)
310 PRINT"                         [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"AY$
325 GETY$:IFY$=""THEN325
340 IFY$="N"THEN300
350 IFY$<>"Y"THEN325
370 IFWL=2ANDY$="Y"THEN700
400 PRINTMA$:INPUT"[145][145][145][145][145]ENTER CITY,STATE (E.G. TIFFIN,OHIO)";RA$(3),RA$(4)
405 RA$(4)=" "+RA$(4)
410 PRINT"                         [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"AY$
425 GETY$:IFY$=""THEN425
440 IFY$="N"THEN400
450 IFY$<>"Y"THEN425
470 IFWL=3ANDY$="Y"THEN700
500 PRINTMA$:INPUT"[145][145][145][145][145]ENTER ZIP CODE[157][157][157][157][157][157][157][157][157][157][157][157][157][157]";RZ$
510 PRINT"                         [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"AY$
525 GETY$:IFY$=""THEN525
540 IFY$="N"THEN500
550 IFY$<>"Y"THEN525
600 PRINTMA$:INPUT"[145][145][145][145][145]OPTIONAL LINE (E.G. YOUR PHONE #)";OL$
610 PRINT"                         [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"AY$
620 GETY$:IFY$=""THEN620
630 IFY$="N"THEN600
640 IFY$<>"Y"THEN620
670 IFWL=4ANDY$="Y"THEN700
700 REM PREVIEW IN GRAPHIX
720 PRINT"[147]HERE'S A PREVIEW OF YOUR LABEL(S)"
760 PRINT"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
761 PRINT"[194]                                  [194]"
762 PRINT"[194]                                  [194]"
763 PRINT"[194]                                  [194]"
764 PRINT"[194]                                  [194]"
765 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
800 PRINT"[145][145][145][145][145]"RA$(1):PRINT""RA$(2):PRINT""RA$(3)","RA$(4)"  "RZ$
810 PRINT""OL$
830 PRINT"LIKE IT? (Y/N)"
850 GETYN$:IFYN$=""THEN850
860 IFYN$="Y"THEN1200
870 IFYN$<>"N"THEN850
900 PRINT"CHANGE ONE LINE OR ALL (O/A)?"
910 GETOA$:IFOA$=""THEN910
920 IFOA$="A"THEN110
930 IFOA$<>"O"THEN910
950 PRINT"CHANGE WHICH LINE (1,2,3 OR 4)?"
960 GETWL:IFWL<1ORWL>4THEN960
970 ONWLGOTO120,300,400,600
1200 REM PRINTER ROUTINE
1210 PRINT"WANT TO PRINT IT? (Y/N)"
1220 GETPR$:IFPR$=""THEN1220
1230 IFPR$="N"THEN1600
1240 IFPR$<>"Y"THEN1220
1310 PRINT"[147][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
1320 PRINT"[194]                                  [194]"
1330 PRINT"[194]                                  [194]"
1340 PRINT"[194]                                  [194]"
1350 PRINT"[194]                                  [194]"
1360 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
1370 PRINT"[145][145][145][145][145]"RA$(1):PRINT""RA$(2):PRINT""RA$(3)","RA$(4)"  "RZ$
1380 PRINT""OL$
1400 INPUT"HOW MANY LABELS ARE NEEDED?";LA
1410 PRINT"ADJUST PRINTER"
1420 PRINT"PRESS SPACE BAR WHEN READY":PRINT"F7 TO EXIT"
1425 PRINT"F5 TO STOP PRINTING"
1450 GETSB$:IFSB$=""THEN1450
1460 IFSB$="[136]"THEN700
1470 IFSB$<>" "THEN1450
1500 CLOSE4:OPEN4,4
1510 FORAM=1TOLA
1520 PRINT#4,RA$(1)
1530 PRINT#4,RA$(2)
1540 PRINT#4,RA$(3)","RA$(4)"  "RZ$
1550 PRINT#4,OL$:FORU=1TO2:PRINT#4,:NEXTU
1560 GETQP$:IFQP$="[135]"THENPRINT#4:CLOSE4:GOTO700:REM F5
1570 NEXT
1600 PRINT"[147]AGAIN? (Y/N)"
1610 GETAG$:IFAG$=""THEN1610
1620 IFAG$="N"THEN63000
1630 IFAG$<>"Y"THEN1610
1640 GOTO110
2000 PRINT"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
2005 PRINT"[194] ADDRESS LABELER [194]"
2010 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
2020 PRINT"BY JOSEPH STEIN JR."
2030 PRINT"PRESS SPACE BAR TO START"
2040 GETST$:IFST$<>" "THEN2040
2050 RETURN
63000 REM    CONNECT BACK TO L.S.
63002 PRINT"[147]LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN"
63004 POKE198,0:POKE631,13:POKE632,13:POKE198,2:END